home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 2
/
Gold Medal Software Volume 2 (Gold Medal) (1994).iso
/
os2
/
wps2rexx.arj
/
WPS2INST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-08-17
|
879b
|
38 lines
/* WPS2Rexx/2 */
/* Installation file WPS2Inst.Cmd */
Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs';
Call SysLoadFuncs;
'@echo off'
say 'Installation of WPS2Rexx/2'
say '(c) Kim Kruse Hansen , 1993'
say ''
say 'Press letter of bootdrive or ESC to abort'
bootdrive = SysGetKey('NOECHO')
if c2d(bootdrive) \= '27' then
do
'copy wps2rexx.dll ' bootdrive||':\os2\dll'
if rc = 0 then
do
rc=SysRegisterObjectClass('WPS2Rexx','WPS2REXX');
if rc = 1 then
do
rc=SysCreateObject('WPS2Rexx','WPS2Rexx/2','<WP_DESKTOP>', ,
'OBJECTID=<ID_WPS2REXX>;');
if rc = 1 then
say 'Installation is complete'
else
say 'Error : Cant create object'
end
else
say 'Error : Cant register class'
end
else
say 'Error : Cant copy dll'
end
else
say 'Installtion aborted'